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The resilience of the QL community never ceases to amaze. 


At the end of each QL Today volume | always pause to take a look at what we have 
achieved during the previous year. This time it was not so much the statistics that inter- 
esied me, but the events we have reported. 


In the first issue of volume i5 we devoted over 7 pages to a discussion that had taken 
place on the QL-users email group over the future of the QL. It was a wide ranging dis- 
cussion during which we discovered that over half of UK QL-ers are neither QL Today 
readers, Quanta members nor subscribers to the QL-users list. 


In issue 2 we reported on progress towards an electronic archive of QL Today which has 
now become a reality, All readers subscribing to volume 16 will receive a free copy. 


In the same issue there was a brief mention of using an SD card on native hardware as a 
replacement for floppy disks. Issue 3 went a good deal further with reports of several 
hardware projects. Our cover story was on Adrian Ives’ plan to produce a USB card and, 
in our news pages, we reported on Peter Graf's ideas for an SD card that could be fitted 
in the microdive slot. In this issue we report on work that Miguel Jodar has been doing. 


We also report in this issue on a survey Dave Park conducted under 74 subscribers to 
the QL-users email group, About 20% of QL Today readers and 15% of Quanta members 
took part in the survey, Although most used an emulator usually QPC2, as their main QL 
system two thirds still possessed some form of native hardware. 


Quanta has played an important role in ensuring the continued viability of native hard- 
ware. Most recently it has supplied the financial backing for two batches of keyboard 
membranes. 


Quanta has had a rough time during the past year with problems over its magazine, web- 
site, constitution and finance. Its future has been in doubt, but at the recent AGM some 
firm decisions were made to safeguard its survival. These include a move to a new web 
host with better technical support, a massive increase in the subscription and a pro- 
posed major revision of the constitution. 


QL Today now moves into its 16th year During the last 12 months we promised to pro- 
duce a minimum of 120 pages. In practice we produced 170 and almost 86% of these 
were editorial, including more than i8 pages of news. Thirteen people contributed to the 
magazine. 


It is the positive developments during the last year that have encouraged us to continue 
publishing, but we are aware that producing the magazine for another year will not be 
easy. In the last issue we mentioned the impending departure of Stephen Poole, although 
we still have a number of his articles on file. We have also completed publication of Tony 
Tebby’s material that has played an important, and much appreciated, part in the last two 
volumes. Of some concern is a fall in the number of contributors. Thirteen writers corm- 
pares with twenty one in the previous year and eighteen in the year before that. 


The QL has a surprising resilience, but survival is only possible if sufficient QL-ers are 
prepared to get their hands dirty. We still need writers for QL Today. 
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SD and USB Card Progress 


SD cards for native hardware have become a 
reality, 

At the recent Quanta AGM Rich Mellor had one in 
use running games on a Tump Card QL. 


two weeks later Miguel Jodar posted a Youlube 
video showing a card in action: 

http://www. youtube.com/walch?v=78xisEKW4Lw 

He had earlier posted a video of speed tests and 
comparison with a regular floppy drive: 
hitp://www.youtube.com/waich?v=t0XvKy8wb-g 

Miguel said he had been working on the project 
for two weeks and described the hardware as: 
"An external ROM board, with EPROM for 
firmware (to be written}, CPLD configured to act 
as an SPI interface, and a SD/MMC socket. Mis- 
cellaneous electronics include an_ integrated 
oscillator (50MHz at present), and a 3.3V LDO 
regulator” 


Video streaming from $O card, thru QLSD Interface 
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Also at the Quanta AGM Derek Stewart reported 
on progress in the development of Peter Graf's 
SD card. This will fit in the microdrive slot or 
alternatively can be used in the ROM slot. 


Adrian lves has also made progress on a USB 
card for native hardware, but the limitations of an 
unmodified QL have proved to be a major handi- 
cap. At the middle of April he announced he was 
withdrawing support for unmodified native hard- 
ware. However just over a week later, following 
feedback from several QL users, he reported he 
had found a solution for the problems, but added 
a warning that the maximum speed that could be 
achieved on unmodified hardware would be 4800 
baud, However a QL fitted with a Hermes could 
achieve speeds of up to 19200 baud. 

Adrian also reported that, although the project 
had been lengthy and costly, he had found little 
interest in it as a commercial product. Indepen- 
dently of Adrian Tony Firshman has taken an 
interest in the project and writes that, given the 
large amount of frustrating work Adrian has put 
into the project, he would like to see it go into 
production. See late news page 33. 


QUANTA Changes 


Quanta could face major changes during the 
coming 12 months. 

The biggest is a 42% rise in the annual subscrip- 
tion from £14 to £20, although there will be a re- 
duction for anyone opting for a three year sub- 
scription, The Quanta subscription has remained 
unchanged for over 20 years, but now no longer 
covers the organisation's costs. Last year sub- 
scription income covered only 67% of expen- 
diture compared with over 77% ten years ago. In 
recent years the shortfall has been covered by 
the sale of second hand hardware, but this is a 
source of income that is rapidly drying up. 
Quanta anticipates rising expenditure in the 
coming year with increases in website and 
magazine costs as well as additional committee 
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expenses, Until now Quanta has had free hosting 
of its website, but has decided to go over to a 
paid host costing about £300 a year in the hope 
that better technical support will help it over the 
problems reported in the last issue of QL Today. 
Also planned is a major revision of the constitu- 
tion following the problems that arose last year 
when no one could be found to replace John 
Gilpin as Treasurer. Although Quanta’s constitution 
has been amended on Ii occasions during its 27 
year life, it has never been given a complete revi- 
sion, and still recognises only two QL systems, 
the black box and the Thor. 

A provisional revised constitution was available at 
the recent AGM and it is planned to release this 
to the members in late summer for decision 
making on several, potentially controversial, mat- 
ters. The new constitution makes provision for 
electronic participation in all meetings including 
the AGM. It is hoped that in this way more mem- 
bers, especially those living overseas, can partici- 
pate in Quanta activities. 

A full report of the Quanta AGM weekend ap- 
pears elsewhere in this issue. 


QL Survey 


At the end of February Dave Park released re- 
sults of a survey he had conducted under 74 
subscribers to the QL users email group. 

Half used an emulator as their main QL system 
and the majority of these were QPC users. 30% 
used various forms of native hardware and 9% a 
Q40 or Q60. About two thirds still had some form 
of native hardware. Only 3 users had just a single 
QL system, and 27 users (37%) had five or more 
systems. 

28% were QDOS users, 12% Minerva ana 57% 
SMSO/E. 67% used a system with 4Mb or more 
and only 17% used one with less than IMb. 29% 
used their QL system daily and a further 32% at 
least once a week. 

There was a high interest in buying new hard- 
ware or software with 84% expressing an interest 
in new hardware and up to 60% in new software. 
(These figures contradict the practical experien- 
ces of traders and developers} Interest in new 
products fell off if these would cost more than 
200 EUR. 

95% of respondents could program in Super- 
Basic, out only 44% in assembly language. 

35% were members of Quanta, 55% QL Today 
subscribers and 32% QL Forum users. 37% were 
former Quanta members and 24% former QL 
Today readers. The most popular website was 
that of Dilwyn Jones. 


ZX81 Anniversary 

For many QL-ers the ZX81, which celebrates its 
30th Anniversary this year was their introduction 
to programming. To mark the occasion Dilwyn 
Jones has released a CD of 2X81 emulators and 
programs. 

The CD contains ZX8i emulators for both QL and 
PCs as well as for the Atari, Mac, Linux, Amiga 
OS4 and Spectrum computers. The disk also 
includes a 780 emulator. 

On the disk are numerous programs in P and 81 
formats and extensive documentation. 


J 
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QL TODAY Indexes 
Dilwyn Jones has also announced the release of 
indexes for QL today volumes 12, 13 and 14. 

The indexes have been compiled by Brian Kem- 
mett, to whom QL Today ts grateful. There are 
now indexes to every complete volume of QL 
Today. 

These indexes can be downloaded free from 
http://www. dliwyn.me.uk/gen/qltoday/altoday.htm! 


OL TODAY VOLUME 14 2009 - 2010 


fatal Soothe thes Moke = 


GEE 55 (== News — 


Other D} News 

Dilwyn Jones writes: 

Thanks to Lee Privett, | have added a couple of 
useful ilems to my website. 

1. A True Type font which looks like a, QL font 
(based on the JS ROM font). 
http:/Awwew.dilwyn.me.uk/fonts/index.html 

2. Improved manual for the PCML disk interfaces, 
available as both PDF and Word .doc file (the 
latter is around 7MB in size, although the former 
is much smaller}, 
hitp://www.dilwyn,me.uk/docs/manuals/Index.him! 


The new version allows much larger iiles to be 
assembled, There was previously a fault prevent- 
ing an increase in the space allotted to user 
heaps. 

There is as well a new version of the file explain- 
ing the 68K instruction set. This contains correc- 
tions to ADDX and SUBX. It also completes the 
eniries for CALLM and RTM.’ 


APOLOGY 


George Gwilt and our readers deserve an 
apology from QL Today, The article "A Surprising 


Thing” in the last issue had already been pu- 
blished in QL Today. To compound our error we 
also spelt “surprising” incorrectly. 


GWASS Update 

George Gwilf wriles: 

"Version 5.06 of GWASS is now available on my 
Site http:/gwiltprogs.inio/ 


Introduction 
Last issue | left you looking at a wonderful but practically useless program which displayed itself on 
screen and reacted only to the user clicking on a loose item or pressing the ESC key to quit the 
program. Apart from that, the most useful thing it cid was to move the pointer into the middle of ihe 
application sub-window when the user pressed the TAB key. 


This time, we get to add a little code, and see what happens when we hit an aoplicafion sub-window. 
Let's get coding. 


The Hit Routine 

You don't actually need to have a hit routine for all your application sub-windows, there's nothing 
wrong with setting up an application sub-window in a program and then not having a hit routine. This is 
especially true if you intend to display information in it rather than handle user interactions and so on. 
As you will see when running ihe code below, the hit routine for an application sub-window gets called 
very {requenily, so if you don't need one, don't use one. 

You can disable the hit routine, if you don't need or want one, by setting ihe pointer to the hit routine 
io zero in the window definition file created by SETW. Now, it's time to get down to editing our new 
program. 


We need to copy t the two files we created last time, and rename them. So, copy ‘Appliest_asm’ to 
‘ApplHitlest_asm,, and ‘ApplTestWin_asm’ to ‘ApplHitTestWin_asm’. These are going fo be used in our 
first experiment. 


First of all, we need to change one text object in ihe file “ApplHitfestWin_asm’, so edit that file and 
change the caption text to ‘Application Window Hit Test’ from ‘Application Window Test 1’. Save the file. 


Next up, we need to edit AppfHitTest_asm. 
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fname de.w fname_e-fname—2 
de.b "Application Window Hit Test" 
fname_e ds.b 0 


Next we need to change the application sub-window hit routine. Look through the code for the routine 
named ahiitO and change it to the following. 


} Application sub-window hit routine 


ahitO tmovem.]1 d1/d3/d5—d7/a0/a4,-(a7) ; Save the workers 


moveq #0,d1 3} DL.W = Application sub window number 
moveq #0,d2 3 D2.W = Ink colour = black 

; A4 already set to Working definition 
jsr wm_swapp(a2) j Set channel id (AO) to the sub window 


movem.1 at~a2,—-(a7) Al & A2 get corrupted 


} 
lea hit,al 3 Text string to print 
Meve.w ut_mtext, a2 3 Print string vector 
jsr (a2) ; Print the message 


lea hitter,al 
move.w (ai),dt 
addq.w #1, (al) 
move.w ut_mint,a2 
jer (a2) 


Hit counter location 
Hit counter value 
Increment counter 
Print integer vector 
Print it 
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movem.1 {a7)+,a1-a2 ; Restore working registers 
movem.1 (a7)+,d1/d3/d5-d7/a0/a4 ; Restore the workers 
moveq #0,d0 ; No errors 

rts 


; Strings and things go here 


hitter de.w 0 3; How many times have I been hit? 
hit de.w hit_e-hit-2 ; Hit message 
de.b ‘HIT: | 


hit_e equ * 


Then, right at the end, where we include our window definition, change the file name to suit our new 
name - from AppltestWin_asm to ApplHitTestWin_asm. 


; Pull in our window definition file. 
in wini_source_App1HitTestWin_asm 
Save the file. We are done. 


Note in the above code, the call to wm_swapp. This sets the channel id in AO to point to the applica: 
tion sub-window that we specify in DL. The ink colour is sel according to the value in D2W and the 
sub-window is cleared. If we don't do this call, we might still print to the application window however, if 
we do, it’s just Juck! You should always ensure that the channel id in AO has been explicitly pointed to 
the appropriate application window before attempting to print, cls, set paper or ink, etc when 
executing code within a hit routine. If you don't, any text printed by the code in the hit routine may well 
end up writing all over a loose item, or an information window or some random place in the window. 
Obviously if you are running a program that has an application sub-window that doesn’t have a hil 
routine, you will still need to call wn_swapp to make sure that the channel id in AO points to where the 
sub-window is on screen ~ assuming of course, that you wish lo write text lo that sub-window as part 
of the application. 
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When you assemble if and execute it, note how the counter changes as you move the pointer over 
and around the application sub-window. It seems that you don't have to use the left mouse button or 
space bar to get a HIT In fact using the right mouse button or ENTER both add 1 to the counter. The 
documentation says that “if there is no keystroke, or the keystroke is not the selection keystroke for a 
loose menu item or an application sub-window, then, if the pointer is within a sub-window, the hit rou- 
tine is called, or else ihe loose menu item list is searched to find a new current item" 


Press ESC to stop the program, then execute it again, try to keep the pointer outside the application 
sub-window. Now, press TAB. The pointer jumps into the sub-window, but what happens to the coun- 
ter? It increases by two rather than one on every subsequent press of the TAB key. 

This happens when you press some other key combinations, Fi increases the counter by two as well. 
Other letter or digit keys increment the counter by one. 

| wonder why? Maybe, in the case of Fi, the keystroke itself causes a hit and then the HELP event 
that the keystroke causes forces another hit? This doesn't explain the TAB key having the same ef- 
fect though ~ that doesn't cause a hit. | mentioned above that a hit routine gets called very frequently 
didn't |? 


OK, as an aside, | tested it. Using QMON2, | put a breakpoint at Ahit0 - the entry point for the 
application sub-window hit routine. On hitting the TAB key, t got a breakpoint. Looking at the registers | 
found that the pointer position in Di was well outside my window limits, very strange. D2, ihe key- 
stroke was set to -1 to indicate that an external keystroke fired the hit routine. There was no event in 
D4 - if was zero and D6, an undefined register was zero. So far so good, | noted down the registers 
and let the program continue. 

It immediately stopped at the hit routine again, this time the pointer position had moved into my screen 
bounds from wherever it had been in hyperspace. D2 was now zero to indicate that no key has been 
pressed, D4 was still zero - so no events either D6 had changed to $80. Wonder what that means? 
Letting the program run again, | pressed Fi this time - without moving the pointer Once again | hit the 
breakpoint. | could see the pointer position in Di had not changed, D4 still showed no events, D2 
showed no key press and D6 had returned to zero. 

And again, | let the program run and it broke again. D6 was back at $80 again. Dl, D2, D4 were all 
unchanged (as were all ihe other registers} 

| hit space this time, when | fet QMON run the program, As expected this showed a $01 in D2 - the 
key oress for a HIT is converted to $01, D6 was showing zero again. D4 stil showed no events. 
Once more, QMON jet the program run and this time, | pressed ENTER. D4 showed the value $10 or 
the event number for a DO. The key press in 02 was set to $02 for a DO, D6 was zero and nothing 
else changed. 

Finally, | pressed ESC to quit. Now, according to the docs, | should have stopped at AhitO again with D4 
showing the CANCEL event, however as documented above there was a loose item which had the 
ESC key set as the selection keystroke. That code was executed to exit from the program, rather 
than the application sub-window hit code being called with D4 set to the CANCEL event number. 


The Advanced Hit Routine 
So, that's our first very simple hit test program done and dusted. It's quite simple but quite useless, all it 
does is show you the running total of hits in the window. You will soon get bored of it, 


For our next trick, we shall improve the utility to display full details of what data gets passed to the hit 
routine. 
Copy ‘ApplHitTest..asm’ to ‘ApolHitlest_2_asm’, and ‘ApplHitTestWin_asm’ to ‘ApplHitTestWin_2_asm’. 


As before, we need to change one text object in the file 'ApplHitTestWin_2_asm’, so edit that file and 
change the caption text to ‘Application Window Hit Test 2' from ‘Application Window Hit Test’. Save the 
file, 


Next up, we need to edit ‘ApplHitlest_2_asm. 
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fname de.w fname_e—fname-2 
de.b "Application Window Hit Test 2" 
fname_e ds.b 0 


Next we need to change the application sub-window hit routine. Look through the code for the routine 
named ahitO and change it to the following. 


} Application sub-window hit routine 


ahitO movem.1 d1/d3/d5-d7/a0/a4,-(a7) ; Save the Hit Routine registers 


bsr.s apinit 3 Initialise the sub-window 

bsr.s ptrpos 3; Display details of the pointer position 
bsr.s keystr ; Display keystroke 

bsr events 3 Print event details 

movem,1 (a7)+,d1/d3/d5-d7/a0/a4 ; Restore the Hit Routine registers 
moveq #0,d0 3 No errors 

rts 


The main code in this advanced hit routine is simple - it stacks all the registers that we require to 
preserve throughout the hit routine, and makes calls to a few helper routines to carry out one specific 
task. | admit, this is not the most efficient method, bul it allows me to split the code into manageable 
chunks for describing in the text. 


; Helper — Initialise the sub-window. 


apinit movem.1 d1-d2/al-a2,-(a7) ; We need these registers later 


moveq #0,d1 ; D1I.W = Application sub window number 
moveq #0,d2 ; D2.W = Ink colour 

3A4 already set to Working definition 
jsr wm_swapp(a2) ; Set channel id (AO) to the sub window 
movem.1 (a7)+,d1-d2/al-a2 ; Ptr position & keystroke back again 
rts 


The first suoroutine called simply initialises the application sub-window setting the ink to black and 
forcing ihe channel Id to cover the application sub-window. Any registers corrupted by the routine are 
stacked on entry and restored on exit. 


} Helper — Display pointer position details. 


ptrpos movem.1 d1-d3/al,-(a7) ; These get corrupted here 


lea ptrx,al Pagel ah qhae ary 

bsr.s print 3 Print it 

move.1 (a7),d1 ; Restore the old D1 again. 

swap di ; Lo = pointer X, Hi = pointer ¥ 
bsr pr_inte2 ; Print pointer X 

lea ptry,al 7 (Ptreye 

bsr.s print 3 Print it 

movem,1 (a7)+,d1-d3/al ; Retrieve other registers 

bsr.s pr_int2 ; Print pointer Y 

rta 


The code above preserves all registers that will be corrupted and then displays the current pointer 
position in absolute screen co-ordinates, These are relative to the 0,0 position of the entire screen and 
not relative to the 0,0 position of the actual main window for our application. 
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; Helper — Display keystroke 


keystr movem.1 61-d3/a1,—(a7) ; These get corrupted here 


lea keystk, al 3 ‘Key: ! 
bsr.s print 3 Print it 
move.1 4(a7),d2 3 Retrieve D2 
empi.b #-1,d2 ; External keystroke? 
bne.s k_hit 3 ho, try a HIT 
lea keyext,al 3} ‘External! 
bra.s k_doit 3 Print & exit 
kKhit ompi.bd #1,d2 7 HTT? 
bne.s k_do 3 No, try a DO 
lea keyhit, al 3 ‘HIT! 
bra.s k_doit 3 Print & exit 
k_do empi.b #2,d2~ - ; DO? 
bne.s k_zero 3 No, must be a key code or zero 
lea keydo,al 3 ‘DO! 
bra.s k_doit 3 Print & exit 
k_zero cmpi.b #0,d2 3} Zero = no key pressed 
bne.s k_keys 3 Has to be a key pregs 
lea keyzero,ai 3 'No key! 
bra.s k_doit 3; Print & exit 
kkeys move.w d2,d1 3 Need keystroke in D1i.B 


moveq #io_sbyte, dO 
moveq #-1,43 


trap #3 ; Print keystroke 
bra.s k_done ; Exit 

kK doit bsr.s print } Print message 

k_done movem.1 (a7)+,d1-d3/al ; Restore working registers 
rte 


The code above starts, as usual, by preserving the working registers. It then checks the value in D2 
to see which, if any Key was pressed to cause a hit in the application sub-window, D2 can be any of 
the following: 


« Negative 1 = the activation key was pressed to place the pointer into the application sub-window. 


e 1 - HIT - the left mouse button was clicked within the application sub-window, or the space bar 
was pressed, 


e 2 - DO - the right mouse button or the ENTER key was pressed while the pointer was within the 
application sub-window. 


e Zero — no key or mouse button has been pressed. 
® Anything else ~ this will be the upper cased key code for the actual key that was pressed. 


If the TAB key is pressed, you might briefly see the "external keystroke’ message flash across the 
screen quickly followed by "No key pressed’ - as | mentioned previously, pressing TAB (the activation 
key for the sub-window) results in two separate calls to the hit routine. 
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3; Helper -— Print event details 


events movem.1 d1-d3/al,—(a7) ; Save the usual bunch 


3 
lea event,al 3 'Event: ! 
bsr.s print } Print message 
move.w d4,d1 3; Event number 
ber.s pr_int2 3; Print it 
movem.1 (a7)+,d1-d3/al 3 Restore the workers 


rts 


Finally, we have ihe helper routine thal displays detalis of whatever event was detected which caused 
the hit routine to be activated. As ever, the-code starts by preserving the working registers and then 
examines D4 to see which, if any, event took place. 


} Helper - Print string at (a1) to channel in AQ. Then CIS to end of line. 


print move.w ut_mtext,a2 } Vector to print string 

- jar (a2) ; Print it 
movem.1 d1/d3/al,—(a7) ; These get corrupted 
moveq #sd_clrrt, dd ; CLS to end of cursor line 
moveq #-1, 43 


trap #3 Fen bio wnle 
movem.1 (a7)+,d1/d3/at ; Restore 
rts 


} Helper — Print word int at (a1) to channel in AO. 


pr_int move.w (al),d1 3; Get word to print 
pr_int2 move.w ut_mint, a2 ; Print word int vector 
jar (a2) 3 Print it 
rts 


The above routines are called by the main sub-routines themselves to display messages and numeric 
values on screen. The various messages are defined in the code below, 


; Assorted TEXT messages ete follow. 


ptrx de.w ptrx_e-ptrx-2 
des bul Romuxrs! 
ptrx_e equ * 


ptry de.w ptry_e-ptry—2 
de.b ' Ptr_y: ' 
ptry_e equ * 


keystk dc.w keystk_e-keystk~2 
de.b $0a 
de.b ‘Key: ! 

keystk_e equ * 


keyhit de.w keyhit_e-keyhit-2 
de.b 'L = HIT! 
keyhit_e equ * 


keydo de.w keydo_e-keydo-2 


de.b '2 = DO! 
keydo_e equ * 
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keyext dc.w keyext_e-keyext--2 
de.b '-1 = External Keystroke! 
keyext_e equ * 


keyzero de.w keyzero_e-keyzero-2 
de.b '0 = No Key Pressed! 
keyzero_e equ * 


event de.w event..e-event—2 
de.b $0a 
de.b 'Event: '! 
event_e equ * 


So, there you have it, a small and increcibly inefficient hit routine to display some of the data that are 
passed into an application sub-window hit routine when it is executed. | have not bothered to display 
the various window definition addresses etc - if you wish, feel free to create a 32 bit long to 
hexadecimal conversion routine to display these values. 


| have deliberately left these oul in an effort to save space in the magazine ~ my listings can get a tad 
on the long side! 


There is one final change we need fo make to our source code, right at the end, where we include 
our window definition, change the file name to ApplHitlestWin_2_asm. 


} Pull in our window definition file. 


in winl_source_ApplHitTestWin_2_agsm 


Save the file. We are cone. 


When assembled and executed, the code in the hit routine displays a few details of register settings 
on entry to the hit routine. I's not very useful, but shows the pointer position in absolute screen 
co-ordinates as opposed to relalive to the start of the actual sub-window (which would have been a 
lot more useful in my opinion}, it shows the key press if any key was pressed and it shows which 
event, if any, occurred, Remember, only a limited number of events get through to a application 
sub-window hit routine. 


if you press the TAB key and watch closely you might see a brief message saying ‘External 
Keystroke" before the text is replaced by ‘No key pressed’. This shows, once again, that the TAB key 
results In two calls to the hit routine. 


Conclusion 

One thing has become obvious from even these two little routines, an application sub-window results 
in a huge number of hits! Even moving the pointer within a sub-window results in multiple hits. It might 
be better to display information - whatever the application needs to print on screen - to an 
information window instead. This should certainly save on processing time. However, as | mentioned 
above, only use a hit routine if you absolutely need one. 


Failing this, the ideal hit routine for an application window should be hugely efficient - and it should exit 


quickly when il doesn't need to do any [further] processing, rather than just doing everything each 
time the code is entered. 


End of Part 28 


Next time, we continue looking at application sub-windows, but we will be loading them with menus! 
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it is always fun - and instructive - to read Tony 
Tebby's take on the QL and the computing world 
in general. 1 don't always agree with him, notably 
as concerns object oriented programming. | just 
thought about the example Tony has given, 
where he mentions a program that uses an 
‘animal’ object which has a ‘goFaster’ method. 
Tony explains that, for flightless birds, once you 
use that method and the bird has to cross a river 
- well then the bird dies. He seems to conclude 
the object oriented programming (OOP) is bad. 

| don't want to get into the OOP is good/bad dis- 
cussion - it's mostly sterile: I've yet to see people 
being persuaded one way or another once they 
had formed their initial opinion. | do think, how- 
ever, that the example chosen here is not a good 
example to demote the OOP concept. If you 
think about this example {| haven't been able to 
find it on the internet, unfortunately}, if would 
stand to reason fhat the ‘animal’ object not only 
has a “goFaster’ method, but also a simple “go’ 
method. What happens if you use this “go” me- 
thod on a flightless bird and it gets to the river? 
Well, it will also drown (but perhaps more slow- 
iy?). Actually, the same fate would happen to a 
mouse, given a large enough river etc... 

Clearly then, at first sight, this ts a programming 
error (a bug) - the designer of the ‘animal’ object 
just designed his object badly by not taking into 
account what would happen at a river crossing 
or if a tree was in the way etc.. However if, be- 
cause of such a programming errors, the pro- 
gramming language/concept in itself is bad per 
se, then | can only conclude that were all, and 
always, using bad languages/concepts: | don't 
know about you, but | have yet to see any kind 
of programming language/concepl that has not 
given rise fo bugs - even those languages/con- 
cepts that use clearly defined data structures 
(ahem, buffer overflow, anyone?}, 

So, for me, this example isn't really something 
that shows that OOP is a bad thing. It just goes 
to show a bad program - at first glance. 

| might even go a bit further though: OOP is all 
about objects and their reuse - be it directly or 
through ‘inheritance’. It is the latter concept that 
would be of interest to me here: it means that 
you derive one object from another: here, for 
example, you would create an object ‘mouse’ 
that is based on the object ‘animal, and you 
would only need to write the ‘mouse’ specific 


a @ Semen i 


parts of the object - all the other parts of the 
animal object would remain. And for the ‘go’ 
method, you would have to make sure that the 
“going” part would only occur on a terrain the 
mouse could actually go on (what happens if it 
gets to a steel wall?) So, the ‘animal’ object 
would just be a skeleton for the more precise 
objects. 

Tony's argument is also that the application pro- 
grammer, who uses the “animal” object and its 
"goFaster’ method is doing exactly what the 
designer of the object provided for; but still gets 
a non functional program, Fair enough - any OOP 
based program is only as good as the objects 
i's based on. However that only shifts the onus 
of correct programming from the application wri- 
ter to the object writer But, again, the same is 
true in ‘normal’ programs - there are numerous 
examples where ‘well defined data structures’ 
arent - such as somebody writing things he 
shouldn't into the system variables etc. Or the 
well defined data structure isn't because the 
documentation gets is wrong - just as the “animal” 
object programmer documented his object's 
method wrong. 

Ultimately, it means, as stated, that an OOP pro- 
grammer will often have already existing objects 
which are then re-used in his program. True, the 
final program is only as good as the underlying 
objects. But isn't this true for non OO programs, 
too? Let's say you write in assembler or C. Don't 
you use libraries? Don't you use operating sys- 
tem calls etc? And your program will only be as 
good as these underlying code parts, too... 
Whai | like aboul OOP is that {at least to my mind) 
the potential for havoc ts reduced. In a ‘normal’ 
program, | have a well defined data structure 
which is used to exchange information/data - but 
there is nothing to stop me from misusing that 
data structure (by putting nonsense values in it) - 
intentionally or not. If the data is hidden from me, 
and | can only get at it via well-defined methods, 
that potential havoc | can create with it is re- 
duced. 

These aré just my 2 cents worth on this debate. 
Also, please note that Tony is an IT professionnal, 
Im not... 


(i} Actually, you would probably create an object "mam- 
mal" based on “animal”, then perhaps "rodent" based on 
mammal etc... 
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M works 
telephone in the Gilpin household rang at 2.30 in 
the morning. Shortly afterwards Sarah Gilpin left 
Manchester to be with her father during his last 
hours. She asked John to remain in Manchesier 
to be ai the Quanta meeting. His day was to end 
after 1100 pm. by which time he was clearly 
exhausted, 

To add to the problems the AGM had been ex- 
pected to be one of the most significant in years. 
Several important decisions were to be taken 
that could have implications for the future of 
Quanta. John was firmly told by several members 
that Sarah was not to rush back. Family is more 
important’. 

Although | was booked to take part in a couple 
of activities, | had decided to take it easy for the 
rest of the show, | had already warned | would be 
arriving late and had planned not to 
attend the show dinner | wanted to use 
the time instead on work to update the 
Just Words! website. In practice my 
weekend turned out to be very fate 
different from what | had planned. 
About 20 people attended the show 
and on the Saturday there was a 
serious concern that Sunday’s AGM would be 
inquorate, but no sense of panic. We would see 
what would happen the nexi day and, if 
necessary, decide what action to take then. 
Three activifies were planned for the Saturday 
afternoon and | had the honour of being the first 
to do a presentation using Quanta's new toy. 
(Quanta has invested in a projector to avoid 
having to beg or borrow one in future) This was 
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Ann Evans knitting covers to keep Dilwyn's QLs warm. 


hop, the 
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a live version of my article in the last QL Today 
on Roger Godley's Xchange software. At the 
moment the programs are only available from me, 
but lam hoping to place them on the Just Words! 
website if | am able to move it fo a new host in 
the not too distant future. The delay is because | 
am working on an expansion of the help and 
advice page, the section that gets the most hits. 
Next speaker was Dave Buckley, the QL’s robot 
expert. This time he brought along table top mo- 
dels that could be programmed using turtle gra- 
phics. Dave has developed several robots over 
many years, some of which have become com- 
mercial products, and has used several different 
comouters to steer them. As you would expect it 
has been easier to write the programs on Sinclair 
computers than on PCs. 


Dave Buckley's robots or a fulure Quanta committee? 


By now it was time io vacate the hall and there 
was no time for the third presentation. 

Three hours later 14 of us met up for the traditio- 
nal dinner in the Pond Quays Chinese restaurant. | 
had taken up one of the vacant places that had 
become available.. The Manchester show dinner 
is very much an occasion for the ‘in-crowd’ with 
the old jokes about vegetarian ducks and nicked 
napkins. 


Just whal is John Southern up to? 


Sunday morning started with a talk, postooned 
from Saturday, by Rich Meilor on his wiki and 
software preservation projects. 
www.rwapadventures.com/ql_wiki 

During the presentation Rich had as his guest 
Derek Stewart who described the latest develop- 
ments on a card reader for the microdive or ROM 
Slots. He ilustrated it with a photo of a prototype 
in the microdrive slot. 

Two informal discussions of Quanta business 
were planned for the Sunday morning. Both 
items were also on the agenda for the AGM but, 
given their importance, it was felt preliminary dis- 
cussions to gauge the opinions of the members 
would save time and lead to more focussed 
decision making at the AGM. 

Following the problems over the lack of a nomi- 
nation for the office of treasurer last year and 
Quania’s breach of its constitution several mem- 
bers had suggesied amending the constitution. 
Others had suggested cerlain sections needed 
rewording to remove ambiguities and make them 
easier fo understand. 

Although Quanta’s constitution has been ame- 
nded on ti occasions over 27 years, it has never 
had a complete revision and is beginning to 
show ils age. It recognises only two QL systems, 
the black box and the Thor and, inevitably over 
27 years, Quanta has adopted ways of working 
that are, strictly speaking, not constitutional. It is 
now proposed fo give the constitution a 
complete spring clean to bring it more in line with 
Quanta's present procedures. A first draft was 
available at the meeting. With an eye to the 
future, provision is being made in the constitution 
for electronic participation in all meetings. 


3 
"If | ask nicely will he let me throw that PC oul the window?” 


Dilwyn guards an “endangered species, a commilfee 
member from the South. 


Quanta has never attempted to set up an internet 
link at its shows, although it does make exten- 
sive use of emailing between committee mem- 
ders to conduct its business. Other countries 
have used internet and video links at shows - 
most notably in Italy in 2008 when there was a 
presentation on QemuLator via a video link from 
seattle. In spite of Quanta's lack of experience in 
this field secretary Alison Southern suggested 
that technological developments could make 
video-conferencing easter and welcomed the in- 
clusion of the possibility in the craft constitution. 

Rich Mellor who was formerly a solicitor and 
company secretary, had prepared the draft. In a 
move unprecedented for Quania, it is planned to 
release this to the members in late summer to 
allow a full discussion to take place before the 
final draft is produced at the end of the year. 
Some potentially controversial decisions have 
been deliberately left open for the members to 
make their decision. One of these is the six year 
rule under which, with a few exceptions, commit 
tee members have to step down after six years 
Service. 

The second discussion was on a proposal to 
raise the subscription. This has been unchanged 
for over 20 years but Quanta is now finding itself 
in increasing financial difficulties. Last year there 
was 4 deficit of £516 against an income of 
£2,635, The situation has been developing for 
some time but in recent years the potential 
shortfall of income against expenditure has been 
covered by the sale of second hand hardware 
via Rich Mellor. This is a source of income that is 
now drying up. 

The formal AGM was held in the afternoon and | 
had been asked by the committee to chair the 
meeting in place of Sarah Gilpin. The annual 
reports from the officers were somewhat sober 
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with problems over the Quanta website, the 
constitution and finance, but on the positive side 
there appears to be some stability on the com- 
mittee and a willingness to take firm decisions. 
Membership had held up well with a net loss of 
just 5 members in the last 12 months. 

John Gilpin finally stepped down from the com- 
mittee and his place as Treasurer was filled by 
Keith Dunbar New to the committee is Lee Pri- 
yett, who has recently returned to the QL scene. 
All the other committee members remained in 
office. 

Quanta is expecting an increase in costs of the 
coming year. It hopes to solve the website pro- 
blems by a move to a new host with better tech- 
nical backup but costing approximately £300 a 
year The new committee member comes from 
Essex and, although this is welcomed as a way 


Norman writes: escapee oe letter see 
the following which reproduces George's com- 
ments [GG] and Is interspersed with mine [ND] 
in the finest tradition of these things!" 


[GGI | suppose the day may come when | have 
absolutely no comments on one of Norman 
Dunbar's Assembler articles - but so far that is 
still in the future. 


[ND] Maybe one day this will happen, however, at 
the rate | seem to create errors and complete 
misunderstandings, | suspeci it won't be any day 
soon! ;-) 


{GG] | must first thank Norman for quietly cor- 
recting a fault occurring in the example EXO 
which | give in EasyPEasy. On page 40, just be- 
fore the trap #3 call to iop_flim, Norman sets re- 
gister D2 to zero. In my example | did not do this. 


INDI | don't remember doing this explicitly to be 
honest, so | cannot comment here on exactly 
why | did it! 


[GG] In faci, if D2 is not zero the call to iop_fim 
fails. | conclude from this that when my example 
EXO_BIN, which actually works, is run the con- 
tents of D2 are zero, presumably that being the 
initial value set when any program starts. it is 
unwise to bank on that though. 


[GG Norman has set out very clearly the steps 
to be taken to produce his window definition 


of breaking the recent dominance of the north, it 
does mean committee expenses are likely to in- 
crease. There could also be extra postage and 
printing costs. 

The members approved an increase in the sub- 
scription from £14 to £20, a rise of 42%. However 
there will be a reduced rate of subscription for 
people who pay three years in advance. They 
also approved the plans to produce a revised 
constitution in time for the 2012 AGM. 

The next 12 months will be an uncertain time for 
Quanta. The rise in subscription could well result 
in the loss of members, but the attitude at the 
AGM was far from being defeatist. As one 
committee member put it Quanta is preparing for 
the future as it "starts to move towards 30 years 
of the QL by 2014’, 
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using SETW. Of course, as you might expect, | 
went through the process myself to see what 
happened. This showed up three things. 


[GGI First, indication 17, headed Application 
Window 1, should have been three lines lower 
just before “Border size = 1. This leaves the 
three items, ‘Colour’, “Xcsize" and "Ycsize” as part 
of “Object 1°, as they should be. 


[ND] This is indeed correct, | remember noting 
down everything | typed and the prompts on 
screen on a scrap piece of paper when | was 
creating the window, | obviously couldn't read my 
own writing when | transcribed it into the article. 


[GGI Second, the colour of Object 1 should be 
black, not white. 


[ND} Again, George ts correct. If you look in the 
generated asm file for this window, the ink colour 
is indeed zero for black and not 7 for white. 


[GGI Third, the size of the loose item in indication 
19 should be 186x3 and not 183x3. An x-size of 
183 cannot be set by SETW since it makes all 
x-sizes even, so this is, | guess, a simple misprint. 


[ND] | assume George means the position as 
opposed to the size as the size is defined as 10 
x 10. The position is itself 183 x 3 in the article, 
however, as George points out, SETW doesn't 
allow this setting and evens it up. Once again, 
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diving into the generated code file shows that 
the position is 186 x 3 as explained by George. 


[@G} On page 42° Norman comments about 
op_con that D3 contains the timeout. In fact D3 
here contains the code governing the type of 
open. This is relevant for opening files. In that 
case the types of open are 0 to 4 for OPEN, 
OPEN_IN, OPEN_NEW OPEN OVER — and 
OPEN_DIR. To open an input pipe D3 has to con- 
tain the ID of the input pipe. However, for opening 
CON or SCR channels the value in D3 seems to 
be ignored. It is sel in op_code to zero just to be 
on the safe side. 


[ND] | obviously had a mental block here! | seem 
to think that all traps used D3 as the timeout 
when if is obviously not the case for IO_OPEN. 
As George correctly states, D3, in this case, is 
the open type parameter and not a timeout. 


{GG Finally, in the Note at the bottom of page 41. 
Norman explains the logic in the names ‘afunO_0” 


Two years ago | dumped the QL. It was a fasci- 
nating experience in which, paradoxically, the QL 
was never far away. {f nothing else | learnt a lot 
about how we QL-ers think. 

The story starts four years ago when my niece 
visited ihe town where my sisters and | grew up. 
She had fallen in love with a public house in one 
of the town’s oldest buildings not knowing that 
there may have been a family connection. | had 
unsuccessfully researched legal documents in 
the county archives to determine whether or not 
the building had been the home or shop of my 3 
times great-grandfather. 

Sitting in the pub | foolishly promised her a CD of 
the family history - a promise that | failed to keep 
mainly because QL duties were taking up too 
much time. 

Fast forward two years and | received an invita- 
tion to the first maior family gathering in ten 
years. It was a now or never moment wilh a tight 
deadline. | had under three months to prepare the 
CD and that meant dumping the QL for the dura- 
tion. Fortunately it was between issues of QL 
Today. 

A CD of family history has many advantages 
over a paper version. It is light, cheap and easily 
burnt, but, above all, it can be interactive. Some 
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and “ahit0" .1 sense that he would have preferred 
that more meaningful names could have been 
given to these. | understand this. 


[ND] No, | have no problems with the names 
chosen and fully understand them. My note at the 
botiom of page 42 was an attempt to explain 
why the names were as they were. 


[GG] However, if there are several secondary 
main windows each with many loose items and, 
oossibly several application windows as well, 
ihere really is a need to be able to pick out 
which routine belongs to what. 


[ND] This is what | was attempting fo explain in 
my note, that other windows would need 
different function names etc, and so the 
numbering system was a good way to do it. 


[GG} To provide a clearer description the _asm 
file produced by SETW could be annotaled by 
(he programmer Norman has in fact done this for 
the ‘Undefined Labels’ in his example. 


[NDI | got something right! ;-} 


members of the family would want a brief sum- 
mary of the family history, but others would like 
more depth. An interactive CD, written in HTML 
code, would allow links to background docu- 
ments for those people interested in details. For 
me it would be an interesting programming chal 
lenge as | had never written an interactive CD be- 
fore. | soon discovered that without my QL know- 
ledge and background | probably would not have 
succeeded. 

The first surprise was the realisation that the only 
times | had ever written HTML code was for the 
QL. The basics of HTML | had learnt from setting 
up the Just Words! website and later learnt some 
further design techniques from hosting pages on 
my site for the QL2004 and QLis2i shows. My 
program QL-2-PC Transfer can generate simple 
HTML code and | can still remember being wrap- 
ped on the knuckles by Marcel for some naughty 
shortculs | made to transfer QL characters to 
their PC equivalents. My QL HTML experiences 
gave me the confidence to learn and try new 
techniques in spite of the light deadline. 
Importing the information into the HTML files 
went much smoother than | expected and once 
again the QL background helped. The simplicity 
of QL. wordprocessors, spreadsheets and data- 
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bases has imposed a discipline upon QL users 
because we had to write such things as our own 
printer crivers. This means we are more familar 
with the inner workings of these programs than 
people whose experience is more PC based and 
much more is done for them. This has given us 
more control over the way in which we use 
business programs. There are many Microsoft 
Word users who would not know what to do if 
you asked for an ASCIl text file. 

The importing was so quick that | was able to 
add more family tree information than | had origi- 
nally intended. However | made a firrn decision 
not to include detailed birth, marriage and death 
information as this would involve too much time 
consuming scanning work, 


Scanning was the only area where the QL let me 
down. You cannot scan on a OL. | already had 
much of the background mate- 

rial in scanned form, but some 

First World War documents at 
were technically difficult. Indivi- 
duai soldier records have suf- 
fered serious fire and water 
damage and the public are not 
allowed access to the origi- 
nals. My grandfather's First 
World War record was of water 
damaged documents on A3 
photocopies taken from a 
microfilm reader and in some 
cases then further reduced by 
photocopier fo A4_ before 
being scanned for — the 
computer You can imagine the quality problems 
this gave. 

It all went a little too well for comfort and | had a 
first version of the CD prepared much earlier than 
expected. Then disaster struck. As soon as | 
tried the CD on a second computer it did not 
work. 


It brought back vivid memories of my first pointer 
driven program. Before release | had tested this 
extensively on several systems and on arrival at 
the launch show | had proudly given Dilwyn a 
review copy for QL Today. With a commendable 
efficiency Dilwyn had immediately passed it on to 
Jim Hunkin to do the review. Half an hour later 
Jim announced, ‘It doesn’t work!", | had fallen foul 
over some slight differences between SMS for 
the QXL and SMSQ for QPC which at the time | 
did not possess. 

Once again | was glad to have my QL experi- 
ence. Wise QL-ers do net panic when a program 
does not work, but instead start systematic and 
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logical debugging. | soon discovered the problem 
was the old Microsoft one of its programs know- 
ing better what you want to do than you do 
yourself. It was similar to the problem Dilwyn had 
had to solve to ensure his QL on a stick would 
run on all systems, Microsoft had used absolute 
addressing and | needed relative ones for all the 
files. Would | had solved this without QL program- 
ming and debugging experience? And as a QL-er 
| had few fears of checking and modifying the 
source code. 


The problem was soon solved but then came 
another crisis that caused a further major delay, 
although this one was not technical. 


| had returned to a focal studies fibrary to check 
the exact title of a history book from which | had 
quoted extensively, While there | came across a 
book of gruesome crimes that had been commit- 
ted in the town and, almost perversely had 
mis looked through it ‘just in case’, 
" Suddenly a name sprang out 
of the index. My three times 
great-grandfather had been a 
major prosecution witness to 
«a brutal murder Two butchers 
- had had a quarrel over money, 
One had bludgeoned the other 
to death, dismembered the 
body and dumped the remains 
in a cesspit. The offence had 
been committed in a shoo 
which had been part of the 
pub where the idea of the CD 
had been born. 


Suddenly, with only a month to go, | found myself 
having to research and rewrite a substantial part 
of family history. Fortunately | was able to gain all 
the information | needed from newspaper ar- 
chives in the local libraries and, from the reports 
of my three times great-grandfather's evidence, | 
was able fo answer many questions about the 
family that had puzzled me for several years. The 
pub had, after all, not been the site of the family 
business or home. , 


When it finally came to production time | had the 
benefit of my Just Words! experience. Years of 
preparing new products and versions to tight 
deadlines for shows had taught me not to panic 
when things go wrong, } also had experience of 
producing disks and manuals and could estimate 
how long this would iake. Yet another way in 
which the QL had helped. 

In summary an interesting experience and a dis- 
covery that when you dump the QL it does not 
gO away. 
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In a previous ace | Piece bed the vectors in ihe operate system al owing ee of queues. 
Here | examine how to make a queue into a device. Let us suppose that we want to be able to open a 
channel to a queue of a particular size so that we could put information into it for later extraction. We 
want to be able to type 

OPEN#3 , QUD_1024 


for example. 


It should now be possible to print a series of strings to #3 and later extract them, one by one, in the 
same order as they were entered. Furthermore, we want fo have an error signalled either if the queue Is 
empty when we want to extract something from it or if the queue is full when we try to add data to it. 


How should this be accomplished? 


Setting up a Serial Device 

To set up a serial device we have to go through certain stages. We have fo link in a device linkage 
block. This then becomes one of a chain of items starting at SV_DRLST in system variables. Our 
linkage block consists of four long words. The first will be set as a pointer to the next linkage block. 
The following three must contain the addresses of the three routines, I/O, OPEN and CLOSE. The I/O 
routines will be accessible by Trap #3 and the other two by Trap #2. Once the linkage block has been 
defined anc set somewhere in ram we will use MT_LIOD to perform the linking. 


Input/Output 

When the device is opened to a channel the I/O routine is first entered by a Trap #3 call. If the 
operation is not completed at this first entry it ts re-entered during each subsequent scheduler loop 
until it is complete. 


On first entry to the 1/0 routine the operating system will have set the registers as follows. 


DO The operation code (as for Trap #3 with top 3 bytes set to zero) 
D1 Parameter 

De Parameter 

D3 

AO Start of channel definition block 

AL Parameter 

A2 Parameter 

AB Assumed start of driver definition 

A6 System variables 

A? Supervisor stack 


lt the routine is re-entered during a scheduler loop D3 ts sei to 1. 


For string operations Di is set to zero. The string operations are IOLFSTRG, IO_FLINE, IO_SSTRG, 
FS_HEADS, FS_HEADR, FS_LOAD and FS_SAVE. 


The I/O routine can use registers D2-D7 and A2-A6. 


1O__SERIO 

For comprehensive device drivers, such as CON and SCR, there may be many operations each of 
which requires coding. However, for a serial device driver the vector IO_SERIO provides a great 
simplification. Coding need be given for only three routines; IO_PEND, IO_FBYTE and IO_SBYTE. 
Given these, IO_SERIO will produce the code jor the siring operations listed above; ie the ones for 
which Df is set to 0. 


We will see lafer an actual example of the programming needed. 


OPEN 
The purpose of the OPEN routine is to set up a channel to the device. 


As a minimum this requires checking the name of the device to see that it has been linked in and to 
find the values of any parameters and then allocating space for the channel block. In our case we 
need also to set up the queue and keep its address in a suitable place for the I/O routine. 


The operating system sets the registers on entry to the OPEN routine as follows. 


D3 Open type 

AO Pointer to device name 

A3 Assumed start of driver definition block 
AG System variables 

CLOSE - 


The space for the channel block has fo be returned to the heap. 


On entry the registers are set as follows. 


AQ Channel block 
A3 Assumed start of driver definition block 
A6 System variables 


The Queue Device ~ QUD 

Before coming to the code which will create the device | must mention one particular problem. Each of 
the three vectors IO_QTEST 10..QOUT and IO_QIN can signal the error ‘Not Complete’ with the 
following meanings: 


Vector Meanin 
TO_QTEST Queue empty 
TO_QOUT Queue empty 
I0_QIN Queue full 


The problem is this. When the error "Not Complete’ is signalled in a Tap #3 routine, the operating 
system causes the routine to be re-entered during each subsequent scheduler loop until completion. In 
the case of the three vectors concerned, there will never be completion when the error ‘Not 
Complete’ is signalled. 


My simple solution is to replace the "Not Complete’ error with "Not Found" for an empty queue and 
‘Buffer Full’ for a full queue. This is both more informative and stops the computer program hanging. 


Coding for QUD 
The coding to create the device QUD Is now given. 


HRA EKER KK RR ER KLEE RRR IE EERE RRR REN EER ER RR HR RRR ER REE E EY 
* QUD_ASM 


This device has one parameter. Thus 
OPEN#3 , QUD[_x) 
will open a queue of size 256 or, optionally x. 


(All types of open will work. Ie OPEN_IN, OPEN_NEW 
OPEN_OVER and even OPEN_DIR operate just like OPEN.) 


To link in the device simply LRESPR the assembled file 


SK of oe RK ae ae bk ok be ORE OIE OOK 


¥ 
x 
¥ 
X% 
% 
¥ 
¥ 
x 
x 
¥ 
% 
% 
* 


HRAR ARAL RR REA ERR REE HERE RE REA ARREARS ERE RRR ERE 
% 


* First set the addresses for JO_SERIO 
* 
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lea ptrs,a0 


lea ilo_ready, a2 
move. 1 a2, (a0)+ 
lea fetch, a2 
move. 1 a2, (a0)+ 
lea send, a2 


move. 1 a2, (a0) 


% 
* Now set the addresses in the linkage block 
* and link it in 


# 
lea linkage+4, a0 
lea I0,a2 
move. 1 a2, (a0)+ 
lea open, a2 
move. 1 a2,{a0)+ 
lea close,a2 
move.1 a2,{a0) 
lea linkage, a0 
moveq #mt_liod, d0 link in QUD 
trap #1 
moveq #0,d0 Mark no error and. , 
rts + » return to BASIC 
KORE RRR ERS 
* Linkage block * 
HEE KR AR RRR EERE 
% 


The linkage block eceonsists of 4 long words: 


x 

¥ 

# ~ Link to next device 

* Pointer to 10 routine 

* Pointer to OPEN routine 
* Pointer to CLOSE routine 
% 


linkage deb.1 4,0 4 long zeros 


HEEKR RENNER ARES 

* OPEN ROUTINE # 

XR MRE RENEE RARER 

¥ 

* This gets space from the heap for the 28 bytes needed for the 
* channel block plus 16 + x bytes to hold the queue. 

% 

* The address of the queue is set in the long word $18 from the 
* start of the channel block. 


¥ 
% The queue header starts $1C from the start of the channel block. 
x 
open subq.1 #2,a7 space for 1 parameter 
movea.l a7,a3 A3 -> parameter 
. movea.w io. name,a4. 
jsr (a4) 
bra.s bad_exit ---- Not Found 
bra.s bad_exit -—-- Bad Parameter 
bra.s ok 
de.w 3 
de.b 'QUD? ,0 
de.W 1 one parameter .. 
de.W 1 1256 » . default 256 
ok 
moved #$20, 01 get 44 bytes . . 
add.w (a7), a1 . « Plus queue size. . 
movea.W  mm_alechp,a4 . . for the channel block. . 
jar (a4) + +» and queue 
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lea $10(a0),a2 address of queue. . 


move. 1 a2,$18{a0} . . Set in channel block 
move .W (a7) ,di queue length. . 
ext.l adi . . to DILL 
movea.W  io_qset,a4 
jsr (a4) set the queue 
bad_exit addq.1 #2,87 reset the stack 
rts 
HEHE RK ERERK KERR ERK 
* CLOSE ROUTINE * 
HRRKE ER KE ERE REN 


* AG entry AO points to the channel block 


close Movea,W mm rechp,a4 return channel block . . 
jmp (a4) . . and queue to the heap 

HEME KERR NEY 

* I/O ROUTINE * 

HREXEXERE ERRENE 

To movea.w  io_serio,a4 Deal with trap #3... 
jsr {a4) . . calls by I0.SERTIO 

¥ 

* These three pointers are to: 

* 

* io ready -— here tests the queue 

¥ fetch a byte to D1 

* send a byte from DL 

ptrs deb.1 3,0 Space for IO_READY, FETCH and SEND 
rts 


HERKKAN EKER ER EKER EE ARK RRR ERNE REE 

* The three routines for JO_SERIO * 

HEE RER REAR RE ER ELK ER ER ERE RE REE SEEN 

* 

The error Not Complete is trapped and replaced by 

Not Found (—7) or Buffer Full (-5) 

These codes are set in DY and later set in DO if needed 


2K OK OK Oe 


fetch movea.wW io_qout,a3 
bra io_ready1i 


jo_ready movea.w ic_qtest,a3 


jio_readyl moveq #-7, a7 empty (not found) 
bra send_1 
send movea.w  io_qin,a3 
moveq #-5,07 full (buffer full) 
send_i movea.l  $18(a0),a2 pointer to queue 
jsr (a3) 
emp. 1 #-1,40 
bne send_2 no error 
move. 1 d7,d0 set error ~7 or —5 
send_2 rts 
Notes 


1. Space is allocated for the channel block by the vector MM_ALCHP and released by MM_RECHP 
These are atomic versions of the Trap #1 routines MM_ALCHP and MM_RECHP These vectors must 
only be used in supervisor mode and must be used in the OPEN and CLOSE roulines. 


2. The name used to open the channel is analysed by IOLNAME. The call to IO_NAME must 
immediately be followed by three short branches. The first is taken if the device is not found, the 
second if the device is found but the parameters are faulty and the third if all is well. 
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One of the features that the Minerva ll ROM pro- 


vided for the original QL hardware was the I2C 
/O (Input/Output) interface. TF Services also 
supported this interface with it's own interface 
products for both parallel and analogue applica- 
tions. 

As always with my projects this is io give you 
ideas and the basics. This is not a complete pro- 
ject in its own right with a real practical applica: 
tions. | leave that up to you. However in another 
article | plan to show you what you can do with 
an old Sony radio to give it remote control. The 
techniques used can be used for other applica- 
tions. More on this, another day, Also this is all at 
your own risk, But do have fun playing. 

What | hope to show you in this short series is 
how to implement the use of the |2C interface 
using a QL Emulator such as QPC2. All the 
examples given have been tested on QPC2. But 
there is no reason why this should not work with 
other emulators. The only basic requirement is 
you need a USB port on your computer. 

Some of you may still have the original TF Servi- 
ces [2C interfaces, if you have, then dig them out 
you can reuse these. 


Now ihere is a way of recreating this interface 
using a product from ByVac. Their BV4221 pro- 
duct provides a USB fo I2C interface. This device 
appears as a COM port just like a RS232 conver- 
ter that | have used in my previous projects 
published in QL Today. 


So back to ihe beginning, what is the 12C inter- 
face. This was an interface developed by Phillips. 
li is a two wire (plus ground) system. One wire is 
used as a clock (SCL) and the second (SDA) as a 
bi-directional data line. The computer, in our case 
a QL with a Minerva ll ROM or a QL Emulator 
such as QPC2 with a ByVac BV42?1 converter 
connected is the master station. This controls 
device(s) connected to it, which are called slaves, 
Each connected device has it's own address. So 
up to 254 devices can be connected to an |2C 
bus. Theses can be such things as bi-directional 
parallel ports, analogue to digital converters, digi- 
tal fo analogue converters, RTC (Real Time 
Clock), RAM (Random Access Memory) and 
digitally controlled potentiometers as examples, 
These are most likely, the most useful to us. 

Here iS an example of how these signals look, 
and gives a little insight {0 the protocol of the I2C 
system. More on this later 


jo OTT Oi RA 
Sle SUBS 


LUMA 


The slave devices in most cases have up to 8 
addresses available via 3 adcress connections in 
ihe chips themselves. Each type of device has 
it's own range of addresses. So using for exam- 
ple PCF8574 parallel 1/0 IC, you can use eight of 
these, in the aadress range 64 to 78 (Decimal), 
one device for each even address, | will come 
back to the odd numbers later {n fact you can 
have a further eight devices connected by using 
ihe PCF8574A device, which have the address 
range 112 fo 126, again the even numbers. There 
are exceptions, for example the DS1307 RTC 
(Real Time Clock) device has only a single 
address. But it is unlikely that you would need 
more than one real time clock. However if you 
did there is nothing to stop you using two 
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BV422i converters on an emulator Something 
you could not do with the original Minerva # QL 
solution. 


Now as | have pointed out above the addresses | 
have quoted are even numbers. The reason for 
this is the 7 most significant bits are in fact the 
device address in the true term. The least signifi- 
cant bit is used to define reading or writing to a 
device. The rule being, even numbers are write 
addresses and odd numbers are read addresses. 
So for example if we take PCF8574 with all ad- 
dress pins held low, the write address would be 
{60 and the read address would be 161. See the 
address table. This shows all the addresses for 
all ihe devices fealured in this series of articles. 
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i2C Interface Addresses So that | hope gives you a basic idea of what [2C in- 
terfacing is. So now how to implement this in practice. 
Address Ranges Read Write | built myself a test board built on Vero Board, con- 
taining a PCF8574(A) parallel chip with LED's and 
switches to input and output to the chip. A PCF8591 
AD and DA chip, a DS1307 RTC (Real Time Clock 
and finally a PCF8570 RAM chip. You do not have to 
build all of this if you don't wish to. For the purposes 
of the series of articles | have split this in to each 
pan chip in its own right. 
| am going to start with the PCF8574{A) parallel chip. 
"==474) ~—‘The circuit shown on the opposite page has the I2C 
+ parallel IC (PCF8574) shown at the top. This is the 
heart of this circuit the rest are the LEDs and a driver 
(ULN2803A) and switches to provide output indica- 
tion and inputs. This is so you can fully experiment 
with this device. The reason for using the ULN2803A 
driver is two fold. First, the output from the PCF8574 
could drive 1.£Ds directly, but the LED and its resistor 
has to be from +5V supply to the port, this means 
when ihe output fromm the PCF8574 is high, that is a 
Tl the LED will not light. So it can get a bit confusing. 
The ULN2803A acts as an inverter, so that when the 
port is high, the LEDs light. The second point is the 
output current from the PCF85/74 is limited, so if you 
want to drive relays for example you need a driver 
for these as well. The ULN2803A also contains the 
back EMF diodes so the device does not blow when 
the relay is released. If you are using relays please 
fake pin 10 of the ULN2803A to +5V this connects all 
the output diodes together and provides the requi- 
red protection. 


All the ports are “pulled high’ with the 10K resistors, so 
that the switches, when ‘on’, pull the inputs low, It is 
best to stari with all the switches off You have to 
ensure the PCF8574 outputs are high first. | will come 
back fo this when we talk about the software. 


The three address lines, AO, Ai and A? are also 
“pulled” high as well. The jumpers pulling these low 
when required. You will see from the address fable 
above this will make address for the PCF8574 '78' 
and for the PCF8574A ‘126’. If you wish to use more 


ind oe 
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101110 


RTC [Real Time Clock(D$130 ‘ than one of each device type on a l2C bus then you 
205] 208 need to fit jumpers as required. By using both 


PCF8574’s and PCF8574A's you can have up to 128 
I/O lines on a single 12C bus. That is 8 x PCF8574's 
providing 8 lines each and 8 x PCF8574A's again 
providing 8 lines each. That should be more than 
enough for most applications. 


As to construction, stripboard is fine for this, just 
remember to cut the tracks as required on the 
reverse of the board. The photograph of my test 
board below should help you with the layout of this 
and the wire jumpers to build the circuit. Just follow 
the circuit diagram. 
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Circuit Diagram 
Ov 


Main Parts list 


Part Supplier Part Number 
BV4221-V2 ByVac BV4221-V2_ - 
PCF8574 RS Components 517-0687 
PCF8574A RS Components 317-0249 
ULN2803A RS Components 714-1167 

8 x 470R Resistor Maplin M470R 

11 x 10K Resistor Maplin MILOK 

8 x LED's Maplin CJ58N 
Stripboard Maplin JP5iF 


POPSaSr4 
POFESTIA 


470 Ohm R's 
for LED's 


Hote: Take pin 10 te Se 
if using relays 


Price each Total 
£24.98 £24.98 
FLSL ** £6.55 
£L63 ** £8.15 
£0.42 ** £2.10 
25) £2.00 
25p £2.50 
54p £432 
£5.29 £5.29 


** Come in packs of five 
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You may wish to use IC sockets, which is not a bad idea, also you will need wire for the links etc. The 
BV422i-V2 is the most up to date version of the USB to I2C converter it is not the same size as the 
version | used. The prices are correct at time of writing, You may wish to find other suppliers that may 
be cheaper or do not have the minimum order quantities. 


One of the nice features of this project is that the power comes from the USB port of your computer. 
However be careful not to oad it too much. This simple test circuit is fine. But care needs to be taken 
if more than 100mA of current is required, this can cause problems and even damage to your 
computer. So if you think you will require more power such as powering relays for example, then using 
a stand alone PSU is a good idea. In this case, take the 5V wire from the BV4221 converter and 
connect your 5V PSU here. 


For those not so happy with ; 
soldering there is a simpler Test card with labels 


way, depending on your fe- 
quiremenis. There is a range of ree 

pre built cards from ByVac, | 
have listed some of the 
options below, but do please 
look at the ByVac's web site 
for the most up to date infor- 
mation since they are cor 
stantly updating and changing 
their products. | must point out | 
have no connection with 


ByVac, | just use their products, Parallel Interface A/D RTC RAM 
There are others in the market, Area DIA (Real Area 
So worih a search on the Area Time 
internet. Clock) 


Now the software 


5 CLS 

10 BAUD 115200 

15 parallel=126:REMerk PCF8574A address, all address links open 

17 adda=158:REMark PCF8591 address, all address Links open 

20 OPEN#3;ser2ir:REMark i=ignor hardware handshake, reraw data 

30 PRINT#3;CHRS(13);:REMark Carriage Return to set the baud rate in the USB to I2C converter, 
required on first pass to initialise USB to 120 converter. 

40 print_reply 

50 PRINT 

60 PRINT#3; "V";CHR$(13); :REMark Command to USB to I2¢ coverter for firmware version. 

65 PRINT “Return USB Converter Version Number:-"; 

70 print_reply:REMark Prints version number reply from USB to I2C converter 

80 PRINT#3;"D'; CHRE(13);:REMark Sets USB to 12C converter to receive decimal numbers, default is 
hex numbers. 

85 PRINT "Decimal Mode Selected" 

90 print_reply 

100 ledflash 

i10 ledcount 

120 input_test 

200 PRINT "End": CLOSE#3:STOP 

210 : 

1000 DEFine PROCedure print_reply 

1010 REPeat loop 

1020 aS=INKEY$(#2) 

1030 b$=a$ 

1040 PRINT b$; 

1050 IF ag=">" THEN EXIT loop 

1060 END REPeat loop 

1070 END DEFine print_reply 

1080 : 

1100 DEFine PROCedure non _print_reply 

1110 REPeat loop 
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1120 a$=INKEY$(#3) 

1140 IF a$s'"." THEN EXIT loop 
1150 END REPeat loop 

1160 END DEFine non_print_reply 
1170 : 

2000 DEFine PROCedure ledflash 
2010 FOR a=1 TO 10 


2020 PRINT#3;"s—";parallel;" 255 p";CHR$(13);:REMark s=-start message to USB to 12C converter, 


peend of message to USB to I2C converter. 
2030 PAUSE 25 
2040 PRINT#3;"s—";parallel;" 0 p";CHR$(13); 
2050 PAUSE 25 
2060 NEXT a 
2070 END DEFine ledflash 
2080 : 
3000 DEFiné PROCedure ledcount 
3010 FOR a=0 TO 255 
3015 PRINT a 
3020 PRINT#3;"s—";parallel;" "';a;"p";CHR$(13); 
3025 print_reply 
3030 PAUSE 25 
3040 NEXT a 
3050 END DEFine ledcount 
3060 : 
4000 DEFine PROCedure input_test 
4010 REPeat input_loop 


4020 PRINT#3;"s-";parallel;" 255 p";CHRS(13);:REMark need to enaure any lines used as an input 


are set high. 


4030 non_print_reply:REMark Stops printing the USB to I2C reply 

4040 PRINT#3;"s—";parallel+1;" g p";CHR$(13);:REMark reads input data, note: the need to add 1 
to the address variable, this puts the I12¢ IS's into read data mode. 

4050 print_reply:REMark prints both the address reply plus the data. 


4060 IF INKEY$=" " THEN EXIT input_loop 
4070 END REPeat input_loop 

4080 END DEFine input_test 

4090 : 


The above routine tests the parallel port, both the 
output and input features. 


So If all is OK, running this program will return the 
firmware version of the USB to 12C converter and 
then all the LED's should start to flash. They will 
flash 10 times at 0.5s intervals. Then there is a 
binary count from 0 to 255, this tests all permuta- 
tions of the outputs. Then the final part of the 
program tests the input, just switch any or all of 
ine switches ‘on’ and the numbers change on 
Screen. 


This simple routine shows how to use the proto- 
col and how this works with the PCF8574(A) chip. 


Line 10 set the baud rate of the port to be used. 
This can be anywhere in the range 9600 to 
115,200 baud in there standard increments. 


Line 30 sends CR (carriage return} to the USB to 
PC converter The converter sees this and it is 
this that sets the baud rafe automatically on the 
converter itself. 


Line 60 sends the character "V" followed by a 
CR, all commands to the converter require a CR 
al the end to tell the converter this string has 
ended. 


Line 80 sets the converter into ‘Decimal’ mode, 
default is ‘'Hex' mode, | change it to decimal 
because it is easier to handie. 


You will note that when the converter replies it 
returns the address of the first device it sees. So 
for example °126°. The reply routines are there 
to read these replies and stop them filling up the 
COM input buffer Also the data from read 
eS will be extracted from these replies 
as well. 


You will see from the first diagram with the 
waveforms, that in the bit stream row the line 
start with an ‘s’ - this is the start command. It is 
then followed by the address for the device we 
wish to control. If there is only one device then 
you need only send the "s’ command. However | 
feel it is good practice to send the address of 
the device we wish lo control, it saves rewriting 
thinks later if there are more devices added later. 


So the start will look like “s-i26 (The Device 
Address)... 


Now we can add the data we wish to send to 
the device. In this case make all the output go 
‘high’. "s-126 255 p’. So the °s’ is the start as 
before followed by the device address, then the 
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number 255 which will set all the output ‘High 
then ‘s’ which is the "Stop Condition’. Don't 
forget a CR at the end for it all to happen. 


Now that sends commands to the device so how 
about reading data. This is where the odd ad- 
dress number comes in. Remember the address 
is the 7 MSB (Most Significant Bits) but there are 8 
bits. The LSB (Least Significant Bit) is the one that 
controls the read/Write function of the I2C bus. 
So we just add 1" to the address to read data 
from the chip. Hence the address is 126 to write 
to the device and 127 to read the device. So the 
command now looks like this, ‘s-127 9 p’, So 
what does the "9" mean, | hear you ask. It is the 
command to ‘Get’ data from the device. So | have 
just given you some basic ideas of the concepts 
involved so do read the BV4221 pdf for more 
details on how to use the converter. 


Next time we will look at the AD/DA, RFC and 
RAM chips and their use. 


Some ByVac I2C products: 


BV 4502 2C 2 Relay 

BV4627-B = 12C 8 Relay 

BV4236 I2C RTC and Temp 

BV4237 I2C RTC, Temp and ADC 

BV4506 I2€ Keyboard Controller 

BV700-B Small Black keypad for use with 
the above keyboard coniroller 

BV4240 l2C Bus Extender 


Range of display controllers, fo many to list here, 
so please see ByVac's web site www.byvac.com 
Then select ‘shop’, where you will find all the 
information on these products. 

(Please note, The software with this article was 
not designed for these interfaces, so may need 
adapting) 


This is an adaptation of an old board game for 
two players. White plays from left to right, while 
black plays from bottom to top. This requires a 
whole new chequerboard strategy, 


To facilitate coding, | use letters in place of white 
pawns, versus numbers for black. Each player 
starts with a row of pawns on his edge of the 
board. While can move right, up or down, Black 
moves left, up or right. Each whole team of pawns 
must reach the opposing edge to win. There is no 
jumping or taking or doubling up on one square. 
The winner is the one who gets home first or 


blocks the moves of his opponent. This is why ~ 


References 
hitp://Awww.byvac.com/bv3/Index.php?route=product/pro 
duct&product_id=88 

(Please note, | used the original V1 of the BV4221, 
ByVac now supply V2 which also has a SPI 
interface. The commands are the same, so the 
programs listed in the article should still work} 


http://www.byvac.com/bvd/Index.php?route=product/cate 
gory&path=44 


PCF85/0 Ram Data Sheet 
http://wwaw.nxp.com/documents/data_sheet/PCF8570.pdf 


PCF8574(A) Data Sheet 
http://www.nxp.com/documents/data_sheet/PCF8574. pdf 
hitp://focus.ti.com/Ilt/ds/symlink/pcf8574.pdf 


PCF859i Data Sheet 
http://www.nxp.com/documents/data_sheet/PCF8591.pdf 


DS1307 RTC (Real Time Clock) 
http://datasheets.maxim-lc.com/en/ds/DS1307.pdé 


DSi803 Digiial Potentiometer Data Sheet 
http://datasheets.maxim-le.com/en/ds/DS1803.pdf 


I2C Tutorials 
http://Awww.robot-electronlics,co.uk/acatalog/l2C_Tutorial 
htm! 

hitp://www.t2c.byvac.com/ar_foundation.php 


TF Services |2C manual 
htip://www.dilwyn.me.uk/docs/manuals/index.htmt 


Advanced |2C information, but still worth a read 
to understand 12C protocols 
http://www.nxp.com/documents/user_manual/UM10204.pdf 


you must wait one round before being declared 
winner, as you may still be blocked! 


The game took me about six hours to write and 
four to debug while waiting for the rain to cease 
during my summer holidays. 


The difficulty levels determine ithe size of the 
board, The program might seem quite long, but 
this is done to simplify such problems as collision 
testing. The positions of all the labelled pawns 
are stored in the grid array GS{xy), which is then 
searched systematically to determine the coordi- 
nates of the pawn being considered. Also the 


empty squares are tagged with underscores, 
which can thereby easily be swapped with 
pawns. By using this tagging, it was much easier 
to debug step by step, as in this sort of program 
it is always easy to get the grid's ‘across and 
down’ indexes mixed up with the QL’s ‘row and 
column’ addressing. 


So start by RUNning and hit a key to say how 
many pawns you want. (For obvious reasons, the 
board will be one unif larger than your choice}. 
Then you will see written on the screen which 
pawns are nex! to play. So hit either a number or 
letter for the pawn of your choice to move, then 
either ‘u.‘d’, T or ‘rt fo move either up, down, left 
or right. If you make an impossible choice, the QL 
will burp, so try again. Otherwise it will beep 
gayly. If any one player cannot make a valid 
move, the other player wins, so then you must 
quit the game by hitting ‘Q’ when prompted. 


100 3: 
110 REMark Traverse_bas, by S.Poole, vésept0o9 


| leave it to you to condense the code further, as 
there is plenty of scope for compression. But | 
forsee that such reductions will be at the ex- 
pense of clarity, my intention as always being 
pedagogical. 


So during my ‘holiday QL sessions’ | managed lo 
recover some i4 programs from microtapes (and 
ED disks) which | have subsequently adapted for 
SMSQ/E as well as QDOS. This recovery gives 
me plenty of material for my 3D perspective ani- 
mation project which | hope will be accepted for 
the Quanta Library, (as the routines contain DATA 
lists which are far too long to type in from 
magazines), 


And there are plenty of subjects | look forward to 
tackling in the near future. Please feel free to mo- 
dify the program as you wish, and happy 
coding... 


120 REMark beta-test by Bruno Coativy. 

130 : 

140 CLEAR: OPEN#1,con_16 

150 WINDOW 512,256,0,0: CLS: PAPER 4: INK 7: CSIZE 3,1 
160 PRINT 'Difficulty? 3 to 8': iS=INKEY$(#1,-1) 

170 IF i$ INSTR '345678': CLS: ELSE GO TO 160 

180 m=ig: nemtl: et1=0: ct2=0 

190 DIM Gf(nt1,n+1): : A$='12345678': B$='abcdefgh' 
200 


210 REMark prepare the board: 


220 REMark Fill the board with under_scores: 

230 INK 2: FOR ac=1 TO n: FOR dn=i TO n: G$(ac,dn)='_': pr dn,ac,'_! 
240 REMark Write the row of numbers: 

250 INK 0: FOR ace2 TO n: G8(ac,n)=A$(ac-1): pr dn,ac,A$(ac—1) 

260° REMark write the column of letters: 

270 INK 7: FOR dn=1 TO m: G$(1,dn)=BS(dn): pr dn,1,B$(dn) 

280 : 


290 REPeat game: player_1: player_2 
300 : 
310 DEFine FROCedure player_i 


won 1 


320 4 ik=0: INK 1k: Ghoose_character 'NUMBER’ 

330 IF check_char(A$): get_coordinates: ELSE GO TO 320 
340 IF get_direction('lur'}): ELSE GO TO 320 

350 IF bad_left : GO TO 320 

360 IF bad_right: GO TO 320 

370 IF bad_up : GO TO 320: ELSE IF dn=1: IF test(1): 
380 END DEFine 

390 : 

400 DEFine PROCedure player_2 

410 =7: INK ik: Choose_character 'LETTER' 

420 IF check char(B$): get_coordinates: ELSE GO TO 410 
430 IF get_direction('urd'): ELSE GO TO 410 

440 IF badup : GO TO 410 

450 IF bad_down : GO TO 410 

460 IF bad_right: GO TO 410: 


470 END DEFine 
480 : 

490 DEFine PROGedure won(wn) 
500 IF wn=1: win$='Numbers!: 


ELSE IF ae=n: IF test(2): won 2 


INK 0: ELSE INK 7: win$='Letters' 


510 AT 0,0: CLS 3: BP 16: PRINT 'Bravo'lwin$;'1': iS=INKEY$(#1, 555) 
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520 AT 0,0: CLS 3: PRINT ‘Another? y/n'!: iS=INKEY$(#1, 300) 
530 IF ig=='y': RUN: ELSE STOP 

540 END DEFine 

550 : 

560 DEFine FuNetion get_direction(d$) 

570 pr 0,0,i$: pr 0,5,'?': j$-INKEY$(#1,—-1) 

580 IF j$ INSTR d$ : BEEP 12345,6: RETurn 1: ELSE : BP: RETurn 0 
590 END DEFine 

600 : 

610 DEFine FuNection check char(k$) 

620 IF if INSTR kf: pr 0,0,i1$: RETurn 1: ELSE RETurn 0 

630 END DEFine 

640 : 

650 DEFine PROCedure get_coordinates 

660 FOR ac=1 TO n: FOR énsi TO n: IF if = GS(ac,dn}: RETurn 
670 END DEFine 

680 : 

690 DEFine PROCedure Choose_character({ch$) 

700 pr 0,8,cn$: pr 0,0,'?': 1if=INKEY$(#1,-1): IF i$=='q': STOP 
710 END DEFine 


720 : 

730 DEFine PROCedure write(+1,+t2) 

740 G$(ac,dn)='_': G$(tL,t2)=i$; INK 2: pr dn,ac,'_': INK ik: pr t2,t1,1i$ 
750 END DEFine 

760 : 


770 DEFine FuNction bad_left 

780 IF j$=='1': IF G$(ac-i,dn)<>'_' OR ac=1: BeP: RETurn 1: ELSE write ac—1,dn 
790 RETurn 0: END DEFine 

800 : 

810 DEFine FuNetion bad_up 

820 IF j$=s'u': IF G$(ac,dn—1)<>!_' OR dn=1: BeP: RETurn 1: ELSE write ac,dn-1 
830 RETurn 0: END DEFine 

840 : 

850 DEFine FuNetion bad_right 

860 IF j$=s'r': IF G${ac¢l,dn}c>'..' OR ac=n: BeP: RETurn 1: ELSE write ac+1,dn 
870 RETurn 0: END DEFine 

880 : 

890 DEFine FuNction bad_down 

900 IF j$=='d': IF G$(ac,dnt1)<>'_' OR @n=n: BeP: RETurn i: ELSE write ac,dn+1 
910 RETurn 0: END DEFine 

920 :: 

930 DEFine PROCedure pr(p1,p2,m$) 

940 AT pl,p2: PRINT m$ 

950 END DEFine 

960 : 

970 DEFine PROCedure BeP 

980 BEEP 12345,67 

990 END DEFine 

1000 : 

1010 DEFine FoNetion test(chk) 

1020 strf=!': AA$='12345678'(1 TO m): eti=0 

1030 IF chk=1 THEN 

1.040 FOR f=1 TO n: str$=str3eas(f,1) 

1050 FOR f=i TO n: IF AAS(Z) INSTR str$: cti=ct1+1. 
1060 IF etl=m: RETurn 1 

1070 END IF 

1080 : 

1090 BBt='abcedefgh'{1 TO m}: et2=0 

1100 IF chk=2 THEN 

1110 FOR f=1 TO n: str$=str$&G$(n,f) 

1120 FOR f=1 TO m: IF BBS(f} INSTR str$: et2=ct2+t 
1130 IF et2=m: RETurn 1 

1140 END IF 

1150 RETurn 0 

1160 END DEFine 

1170 :: 
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‘SER-USB Update: 


Adrian Ives is now selling his Ser-USB card. On 
his website he describes the card as: 
‘Measuring just 115x64x30mm the Ser-USB is 
compact yet powerfull Designed as a portable 
solution for moving data between different QL 
systems and emulators, the Ser-USB provides a 
bridge between the QL's simple serial hardware 
and the state-of-the-art "“USBWiz" - an advanced 
circuit module that talks to modern storage devi- 
ces; devices so sophisticated that they would 
have been the stuff of dreams when the QL was 
first conceived more than 25 years ago! Attach 
the Ser-USB fo one of the QL's serial ports, load 
ihe device driver (which is available on ROM 
cartridge for supreme convenience) and you will 
have access to SD Cards and USB storage de- 
vices, all of them formatted as native QDOS 
volumes. 

The Ser-USB is supplied with a 5V multi-voltage 
switching power supply with interchangeable 
plug tops for UK, Europe, USA and Australia. It 
also comes with one serial lead of your 
choosing: 8 pin Mini-DIN to QL SERI, QL SER2, or 
9 pin D-SUB DCE and DTE variations. If your 
conneciion is not one of these, just ask and we 
can make a custom lead. A printed user manual 
is supplied, along with the device driver on QL 
format floppy disk, or if you prefer on a PC 
CD-ROM. 

The Ser-USB is not intended to be a replacement 
for a conventional fixed disk system. Its primary 
purpose is for use as a device fo enable the 
transfer of files between many different QL confi- 
gurations using QDOS-formatted media. Its per- 
formance is limited by the performance of the 
serial ports of the machine to which it is connec- 
ied. On a standard QL, this means that 
the Ser-USB is limited to 4800 baud. On 
a QL with Hermes, that is raised to 19200 
baud, and with superHermes to 57600. 
On Q40/Q60 and PC/Mac emulators, it 
will be limited by the maximum speed of 
the serial port hardware. The maximum 
speed of the Ser-USB device is 
230Kbaud, but it may not be possible to 
achieve this due to other system 
limitations (such as processor speed) and 
you should not anticipate being able to 
use speeds higher than 115kbaud reliably. 
Please note that, at the time of writing, 
the Ser-USB requires extended memory 
to run on a standard QL. Also, without a 
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ROM oni you will require a Shy drive 
connected to ihe QL in order to load the 
Ser-USB driver software. Alihough the software 
has been through a long period of testing, it is 
the first new device driver for the Sinclair QL in 
many years and there are bound to be some 
teething problems as it is deployed to different 
environments. We have a policy of continuing 
support, development and optimisation of the 
driver, and will normally provide fixes to identified 
problems by means of a software download. 
However, if we are unable to resolve an issue, 
and you cannot use the Ser-USB in your 
configuralion. we do offer a full money back 
guarantee within 14 days from the date of 
purchase, Updates to the base version 1.x driver 
are free (by download from our web site) for the 
lifetime of the product. Utility software updates 
(again, by download) are provided free of charge 
for one year from the date of purchase. If you 
purchase the ROM cartridge, the price includes 
ihe cost of two EPROM re-burns, but not the 
postage and packing to return the ROM car- 
tridge. Finally although it uses a custom manufac- 
tured printed circuit board, each and every Ser- 
USB is hand-made. This means that there may be 
some slight differences between the units. Also, 
the finish that it is possible to obtain by hand 
crafting the enclosure will not be as good as that 
obtained by dedicated machine tooling, and the 
slots and socket openings may show some small 
imperfections" 

The card costs £125 plus post and packing (UK: 
£10 - EU: £15 - USA: £21}. Payment can be by 
Paypal or UK bank cheque. 


Making the computers of yesterday relevant today 
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Per Witte writes: Some comments on George Gwilt's "A Surprising Thing” 


You may not be aware (or more likely, you have forgotten!) that virtually any job can be made into an 
EXecutable Thing. You simply use one of the Thing keywords, like HOT_RES or HOT_RES1 to load it. | 
have just tried it in QPC2 with net_oeek_bin version 3.34 

ERT HOT_RESI("n", "<source directory» net_peek_bin") 


Then pressed ALT+'n! to invoke, or if already running, to. PICK. 

| have always interpreted the manual (QL Reference: ‘Mariual) to | mean that a SEPARATE block of 
memory is required for the Thing linkage block. To ‘quote from QRM section 17, page 9: "Two areas are 
allocated, one for the Thing contents and the other for. the Thing linkage. The contents may already 
be present in RAM or ROM/EPROM, but the linkage has to be in RAM" 
First your program has to reserve space for the linkage in the Common Heap; then it must fill in the 
details, then link the Thing in. Sadly, this requiremént- almost inevitably implies thal you end up with two 
copies of the linkage block, the real one and the copy in your peer code. Still, it makes sense. See 


the example given inQRM sectioni7! = 


Right, fete we are, at the ra of aie 15 ae 
ready to start anew Volume 16 soon. 

This issue will not be shipped from Austria, and | 
still did not manage to squeeze everything into 
the 32 pages to stay under 100¢ fofal. {t's on me 
again .. treat it as a "THANK YOU" for all the 
early renewals, Seeing all the renewals coming in 
so early shows your support .. | don't think I've 
ever had such a high percentage in the past. 

Ail the German automatic renewals already went 
to the bank middle of June. 

To make life easier [| will add a note about 
whether | think you have renewed or not on the 
address sheet. If the sheet says you have not 
renewed yet and you think | am wrong, please 
contact me: 

SMSQ®@J-M-S.com 

There are so many ways of sending money to 
me, that it is possible that | don't notice a 
payment here or there, especially, if the renewal 
form has not been returned and/or no ue has 
been writlen to me. 


Thanks to Rainer Wolkwitz, we have all issues 
excluding the one you are now reading in PDF 
format. | am sure we will have the complete set 
very soon after Rainer receives his copy - he 
was extremely quick in converting the large pile 
of issue masiers. 


The next issue wil Be ce from Austra 
middle of September: as usual. | have already 


bought printable DVDs .. so you can look 
forward to receiving the DVD coniaining all the 
issues of Volume 1 to 15 of QL Today, just like 
Geoff wrote in his Editorial, 

Although | have DVD burners in most of my 
computers, | have never ever ‘produced’ a DVD 
with viewable contents myself in the past. 

| can put all the PDFs onto the DVD like | do for 
backing up data, but | feel it deserves something 
nicer | own Nero 7 Premium, so the tool should 
be here. If somebody has something better, 
easier fo use, freeware .. any suggestion and 
help would be most welcome. 


Also, | don't know which format to use. | don't 
even know if the printable DVDs + or - .. but | 
guess this should not matter nowadays, where all 
the DVD-ROMs and DVD-burners are ‘super multi’ 
whatever. But again: suggestions and informative 
help is welcome. 


So let me finish and repeat what | initially wrote: 
thanks a lot for you support - } am looking 
forward to the next Volume and t hope (there is 
still hope, as you can see) that | can become 
more active again in the QL scene... not "just" by 
producing QL Today for you. 
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Shortly | ama QL aaa was eT to g0 a press 
several important news items came in. Here we 
present a short summary of these: 


Rich Mellor of RWAP software has 
announced his support for the SER-USB interface 
in a recent email to customers and contacts. 


To optimise use of the interface he has a limited 
quantity of Hermes, SuperHermes and Minerva 
chips for sale. 


He is also selling QL keyboard membranes at a 
special offer price of £12 plus post and packing 
until the end of July. 


For collectors he had the unique offer of what he 
describes as ‘the original and rare Sinclair QL 
with Kludge" 


adding 


"This extremely rare Sinclair QL is still available 
for purchase - boxed and fully working, this 
shows how the Sinclair QL was first released to 
the expectant market Complete with the 
classic Kludge, containing part of the operating 
system, this contains some of the best 
microdrive units we have ever used (they 
format a cartridge in a few seconds)’ 


Earlier he had also announced a re-release of an 
Fi motor racing game, QL Vroom, in agreement 
with Pyramide’s former owner. 


The game costs £5. 
hitp:/Avww. rnwapsofiware.co.uk 
http://sellmyreiro.com 


Marcos Cruz announced he had _ finished 
a port from ZX Spectrum of a text adventure in 
Spanish. The details are-in The Sinclair QL Forum: 
http://qlforum.co.uk/viewtopic.php?F3at=163 


Quanta has a new editor for its magazine. 
The current issue is being prepared by the Chair- 


And finally, please remember to renew 
your QL Today subscription 
(if you have not done it yet)! 
The next issue will come with a free 
DVD for all subscribers! 


woman, Sarah Gilpin, but ae next wil 5 the 
responsibility of Lee Privett. QL Today under- 
stands John Gilpin, the former acting editor of 
ihe Quanta Magazine, is a preparing detailed 
written guidance for Lee and other future editors 
of the magazine. 


Lee is a former QL-er who returned to the scene 
last year At the recent Quanta AGM he told the 
Slory of his decision to rejoin Quanta. While 
researching developments in the QL scene he 
visited the Quanta website and saw his own 
name in an image of the fibrary guide. 


Quanta is stil experiencing problems with its 
website. As we go to press a notice on the web- 
site says that it is still undergoing maintenance. 
As an interim measure some Quanta information 
is available on Dilwyn Jones’ website. 


http://Awwaw.dilwyn.me.uk/gen/quanta/quanta.html 


Meanwhile QL Today hears from the horse's 
mouth (or is it the bird's mouth) that Dilwyn 
now goes “Tweet, Tweet’ He writes: 


"Recent visitors to my website may have 
noticed that a couple of Twitter butfons have 
appeared on my website. Tweeling is something 
new for me, but | hope to use it fo announce 
news of anything added fo my website. 


Clicking on the Twitter button takes you fo a list 
of my Tweets {that word Is already driving me 
mad) and there is a ‘tweet’ button as well for 
anyone else on twitter to retweet or whatever 
Not quite sure how it'll work or if ['ve set it up 
right yet, but hopefully once working properly 
will be another way to spread the word of the 
QL. 


lf anyone else on Twitter around here wants to 
send me privale messages over if, send if to 
@DilwynJones2" 


Kaiser-Wilhelm-Str. 30 Fax +49 203 502012 
47169 Duisburg, Germany EMail: SMSQ@J-M-S.com 


SEVERAL PRICE CUTS! 


QPC2 Version 3 + SMISG/E Software QL-Emulator for PC'S oo.ccccccsccscsssssesseceseeons EUR 59,90 
QPC2 Varsion 3 - Upgrade from QPC2 Version 2 o.ccccccccccccsssessessessessesres sarneanvenrsnesens EUR 19,90 
QPC2 Version 3 - Upgrade from QPC2 Version 1 vccccscsvsssersssssnssverrversveay svesesnenevecevens EUR 39,90 
OPC Print - printer emulation driver for OPC .....cccseceseseccecsscsecsessscsescsvscanyeusaysnseapeversasuuvenecsvescanenanecenees EUR 39,90 
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BUNDLE: QPC2 and QPCPrint 00... ce eccsessessestesssseeessesessesrenseeeteaesteerree ONLY... EUR 79,90 
Agenda Agenda program for WMAN and Prowess ..,...-s.ersssssssssssssessrseeentsersusnesveenserervars [V1.09] .....EUR 14,90 
Suqcess Database front-end for WMAN .....cecescscccsscssressesssersesssasseuececeseneeseseessueuarssesesenes [V2.05] Fare EUR 19,90 
QD2003 Pointer-Environment-Editor ........s..csesesecsrseeresesssessstensasanscsssecsesressurersaseansnsseenseass [VB.01] nee EUR 29,90 
QD2003 Upgrade from Version 9 and older ois eecsesseseeensteeeeeee|VB.O1] ..... EUR 14,90 
QMAKE Pointer-driven MAKE for GST/Quanta Assembler .....ccscescesscsssessessssssssssssessensecnsanes [V4.31] .....EUR 14,90 
ERAS BR 5 sis sce teae Gio carves acini gg cael lel cds opted tana tes [V1.2] .....EUR 14,90 
WINED Floppy/Harddisk Sector: & File-Eqitor ......cscscsesssssserrssssesessesseeceresersavensessneasnenencaess [V1.26] .....EUR 14,90 
FiFi IT File-Finder - Extremely useful! ........-.-ceccescecsseesscosesssessssessnsnsstcacsesssesesessceueesescesaeaues [V4.3 1] EUR 14,90 
FiFi I } Upgrade from Fifi Version 3 of older .....cccccccessessessessesssesssssessensecarensnsnsaneest [V4.31] ....EUR 9,90 
EPROM | MGnaGe? \.ics-c:irciccnetinnranvauian ars mney Dubie an iaiaieanan tava [V3.02] .....EUR 14,90 
QSpread2003 Spreadsheet Programm ...c.cestessessseeesscseeessseesseraseasntesanensaseastesesensaneeseseeeees (V4.04] sass EUR 29,90 
QSpread2003 Upgrade from Version 3 and older .........cccccsesseeseeseseserssestsensaes [V4.04] .....EUR 14,90 
PAG [Utility programs sts eccssssesedoccsacets ancn dasa xeedesiees sees abdtiagudassotensaccaceuidedanacedtavausienee [v1 1 1] ie EUR 19,90 
QPAC II Files, Jobs & other Things .......cccccccssssssssscsssecsccececerseesseerouresansusannensansenssensnansaces [V1.45] ..... EUR 29,90 
COTY P AE Spell Che eher’sictescecassesexesratvavssvinauces sotewiartvanivbustdetnietialeeaiawgaysasigaasadaniapues (¥2.17] .....EUR 19,90 
OPER Pointer Too lleltisy.i5ccsceeevceedectvinwsaetnc ace vantniseaecd taerAvanevithnaiaeetialasseciecon anatwdteiones (V0.30] .....EUR 29,90 
DISA Interactive Disassembler .......cssssscssssessessessctessesessnecseesssscesssneecesseresssesessssassvasessesss [V3.04] .....EUR 29,90 
Cae Sire ll iesevsinteeatinnseesvehetlaneutei setae tutieten ited caatesta gees caeida Mei imiadetinn [V2.14] .....EUR 29,90 
Cueshell for OPC .io.k et iene oan wi ia emia [V2.14] .....EUR 14,90 
SER Mouse software mouse driver for Serial MICE .........ccccscsssssssssssssescserrsvanvenvescseseece EUR 10,00 
EasyPIR Version 4 sicicas ctnctnstinns Ganvewneaeiotaninuinnnliiatals were EUR 59,90 
EasyPTR Version 4 - Upgrade from earlier Versions ...c.scssccssssesesssesseceesnesseencenes[ WA] cccpeereenn EUR 39,90 
QDT - QL Desktop program iccceccsssssiecccensccecetealiiesiccsceecccssass pelea aleractpescleenannesasniuieeemmpeommebepuoi ot 0tds8v0d de pbeees EUR 59,90 
QMENU Version 8 - with new, printed Manual oo... eaeeseneeeeren | YB02] EUR 24,90 
QMENU Version 8 - Update from earlier Versions, also with printed manual ..........00008 EUR 17,90 
QMENU Version 8 - New/Update for OL Today subscribers, with prtd manual ONLY EUR 14,90 


Please add EUR 4,90 for postage to all destinations - Germany, Europe, Wordiwide! 


We accept VISA, MasterCard & Diners Club online and offline! 

Details for money transfers: 

e Deutschland: Jochen Merz, Account 493 50 431, Posipank Essen, BLZ 360 100 43 

 Osterreich: Jochen Merz, Account 85055317, PSK Wien, BLZ 60000 

* Switzerland: Jochen Merz, Account 60-690080-4, PostFinance, Clearing-Nr. 09000 

e The Netherlands: Jochen Merz, Gironummer 3258439, Postbank NL Amsterdam 

@ and from all other countries in EUR with IBAN and BIC to account 
Jochen Merz, Deutsche Postbank AG, IBAN: DE?1 3601 0043 0611 1004 37 / BIC: PBNKDEFF 360 

¢ UK customers can pay in £ (convert EUR prices above to £ by multiplying wilh 0.90) to 1 fi; 
Jochen Merz, Account 83795395, Citibank UK, Sort code 30-00-45 ae 
or send cheques in £ - no fee for UK sterling cheques! 

e US customers can pay in US$ (conver! EUR prices above to USS eS 
by multiplying with 1.48) - no fee for US cheques in US$! Chea’! "price sst valid untit 301 of Augus! 200 F 
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